VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "dmSBillCtlPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private A_SBillObjectID As String
Private A_Row As Long
Private A_Col As Long
Private A_FieldName As String
Private A_CtlName As String
Private A_CtlObjectID As String
Private A_Caption As String
Private A_Width As Double
Private A_Height As Double
Private A_Border As Double
Private A_Posi As Long
Private A_Enabled As Long

Public Property Let Enabled(ByVal vData As Long)
    A_Enabled = vData
End Property

Public Property Get Enabled() As Long
    Enabled = A_Enabled
End Property

Public Property Let Posi(ByVal vData As Long)
    A_Posi = vData
End Property

Public Property Get Posi() As Long
    Posi = A_Posi
End Property


Public Property Let Border(ByVal vData As Double)
    A_Border = vData
End Property

Public Property Get Border() As Double
    Border = A_Border
End Property


Public Property Let Height(ByVal vData As Double)
    A_Height = vData
End Property

Public Property Get Height() As Double
    Height = A_Height
End Property


Public Property Let Width(ByVal vData As Double)
    A_Width = vData
End Property

Public Property Get Width() As Double
    Width = A_Width
End Property

Public Property Let Caption(ByVal vData As String)
    A_Caption = vData
End Property

Public Property Get Caption() As String
    Caption = A_Caption
End Property


Public Property Let CtlObjectID(ByVal vData As String)
    A_CtlObjectID = vData
End Property

Public Property Get CtlObjectID() As String
    CtlObjectID = A_CtlObjectID
End Property


Public Property Let CtlName(ByVal vData As String)
    A_CtlName = vData
End Property

Public Property Get CtlName() As String
    CtlName = A_CtlName
End Property


Public Property Let FieldName(ByVal vData As String)
    A_FieldName = vData
End Property

Public Property Get FieldName() As String
    FieldName = A_FieldName
End Property

Public Property Let Col(ByVal vData As Long)
    A_Col = vData
End Property

Public Property Get Col() As Long
    Col = A_Col
End Property

Public Property Let Row(ByVal vData As Long)
    A_Row = vData
End Property

Public Property Get Row() As Long
    Row = A_Row
End Property

Public Property Let SBillObjectID(ByVal vData As String)
    A_SBillObjectID = vData
End Property

Public Property Get SBillObjectID() As String
    SBillObjectID = A_SBillObjectID
End Property

